﻿Public Class ClassColRechercheIndirecteResult
    'Collection indexée de résultats de recherche indirecte
    Inherits System.Collections.ObjectModel.KeyedCollection(Of String, ClassRechercheIndirecteResult)

    Protected Overrides Function GetKeyForItem(ByVal item As ClassRechercheIndirecteResult) As String
        Return item.sRecherchee
    End Function

    Friend Overloads Sub add(ByVal Key As String, ByRef Item As ClassRechercheIndirecteResult)
        If Not Me.Contains(Key) Then
            Me.add(Item)
        End If
    End Sub
End Class
